####### MAURCIO TAKASHI COUTINHO WATANABE ######## Exerccio 9

getwd()
setwd("C:/Users/Maurcio/Documents/aula9")


#### Exerccio Programar 1.: QUE FRIO!

celsius <-function(x)
	{
	diferenca= 5*(x)-160
	celsius=diferenca/9
	return(celsius)
	}

#### Exerccio Programar 2. : Anlise exploratria simultnea de duas variveis

require(plotrix)

datagraph <- function(x,y)
	{ 
	x11()
	par(mfrow = c(2,3))	
	boxplot(y~x,col=c("gray","green"), main="Boxplot das variveis")
	multhist(list(x,y),beside=TRUE,col=c("blue","red"),ylab="Frequncia",main="Dados de frequncia")                 
	plot(y,x,xlab="y",ylab="x",col=c("orange","purple"),main="Grfico de disperso")
	qqnorm(x,col="yellow", xlab="Quantis tericos", ylab="Quantis observados", main="Grfico Q-Q de x")
	qqline(x, col="pink")
	qqnorm(y,col="black",xlab="Quantis tericos", ylab="Quantis observados", main="Grfico Q-Q de y")
	qqline(y,col="brown")
	par(mfrow=c(1,1))
	estatistica=list(cor(x,y),summary(x),summary(y))
	names(estatistica)=c("Correlao entre x e y", "Sumrio de x", "Sumrio de y")
	return(estatistica)
	}

###### Programar 3: ndices de Diversidade de Espcies
